DEFINITION MODULE DateTime;

(*
 * Gets date or time, formats it and returns a string to the caller.
 *)

CONST
 DateSize = 13; (* maximum number of characters in a date string *)
 TimeSize = 8;  (* maximum number of characters in a time string *)

TYPE
 DateType = ARRAY [1..DateSize] OF CHAR;
 DateFormat = (MoDayYear, CapMoDayYear, (* Dec 25, 1987 | DEC 25, 1987 *) 
	       DayMoYear, CapDayMoYear, (* 25Dec87 | 25DEC87 *)
	       YearMoDay, CapYearMoDay ); (* 87Dec25 | 87DEC25 *)

 TimeType = ARRAY [1..TimeSize] OF CHAR;
 TimeFormat = (Hour12, Hour24); (* 01:57PM | 13:57 *)
 
PROCEDURE GetTime( VAR TimeStr: ARRAY OF CHAR; Format : TimeFormat );
PROCEDURE GetDate( VAR DateStr: ARRAY OF CHAR; Format : DateFormat );

END DateTime.
